home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / tutorial / adatu311.zip / TOMORROW.DUM < prev    next >
Text File  |  1996-01-10  |  155b  |  7 lines

  1. -- Dummy solution to Outside Assignment 3
  2. separate (Nextdate)
  3. function Tomorrow(Today : in Date) return Date is
  4. begin
  5.    return Today;
  6. end Tomorrow;
  7.